program test
	implicit none
	real(kind=8) :: x(2), y(2)
	complex(kind=8) :: z(2), zz(2)

	write(unit=*, fmt=*) min(1,2,3)
	

end program test